home *** CD-ROM | disk | FTP | other *** search
/ Czech Logic, Card & Gambling Games / Logické hry.iso / hry / Fish Fillets / script / ufo / code.lua next >
Encoding:
Text File  |  2005-07-16  |  3.5 KB  |  108 lines
  1.  
  2. -- -----------------------------------------------------------------
  3. -- Init
  4. -- -----------------------------------------------------------------
  5. local function prog_init()
  6.     initModels()
  7.     sound_playMusic("music/rybky13.ogg")
  8.     local pokus = getRestartCount()
  9.  
  10.  
  11.     -- -------------------------------------------------------------
  12.     local function prog_init_room()
  13.         local pom1, pom2, pomb1, pomb2 = 0, 0, false, false
  14.  
  15.         switch(pokus){
  16.             [1] = function()
  17.                 room.uvod = 1
  18.             end,
  19.             [2] = function()
  20.                 room.uvod = 2
  21.             end,
  22.             default = function()
  23.                 room.uvod = random(4)
  24.             end,
  25.         }
  26.         room.hlaska1 = random(2) + 1
  27.         room.hlaska2 = 3 - room.hlaska1
  28.         room.hlaskacount = -1
  29.  
  30.         return function()
  31.             if no_dialog() and isReady(small) and isReady(big) then
  32.                 if room.hlaskacount > 0 then
  33.                     room.hlaskacount = room.hlaskacount - 1
  34.                 end
  35.                 pom1 = 0
  36.                 if room.uvod > 0 then
  37.                     if odd(room.uvod) then
  38.                         addv(20 + random(20), "ufo-v-znicilo")
  39.                         addm(random(10) + 2, "ufo-m-osmy")
  40.                     end
  41.                     if room.uvod >= 2 then
  42.                         adddel(random(300) + 40)
  43.                         if random(2) == 0 then
  44.                             addm(0, "ufo-m-valce")
  45.                         else
  46.                             addm(0, "ufo-m-moc")
  47.                         end
  48.                         addv(10, "ufo-v-hur")
  49.                         addm(1, "ufo-m-ne")
  50.                         addv(3, "ufo-v-vpredu")
  51.                     end
  52.                     room.uvod = 0
  53.                 elseif room.hlaska1 > 0 and dlouha.Y > 9 then
  54.                     pom1 = room.hlaska1
  55.                     adddel(random(200) + 50)
  56.                     room.hlaska1 = 0
  57.                     room.hlaskacount = 1000 + random(2000)
  58.                 elseif room.hlaskacount == 0 then
  59.                     pom1 = room.hlaska2
  60.                     adddel(20)
  61.                     room.hlaska2 = 0
  62.                     room.hlaskacount = -1
  63.                 end
  64.                 switch(pom1){
  65.                     [1] = function()
  66.                         addm(0, "ufo-m-zvlastni")
  67.                         addv(5 + random(15), "ufo-v-rikam")
  68.                         planBusy(small, true)
  69.                         addm(10, "ufo-m-vidim")
  70.                         planBusy(small, false)
  71.                     end,
  72.                     [2] = function()
  73.                         addv(0, "ufo-v-dovnitr")
  74.                         addm(5 + random(10), "ufo-m-tajemstvi")
  75.                         addv(10 + random(90), "ufo-v-zjistit"..random(2))
  76.                         if random(2) == 0 then
  77.                             addm(5, "ufo-m-tady")
  78.                         else
  79.                             addm(5, "ufo-m-nevim")
  80.                         end
  81.                     end,
  82.                 }
  83.             end
  84.         end
  85.     end
  86.  
  87.     -- --------------------
  88.     local update_table = {}
  89.     local subinit
  90.     subinit = prog_init_room()
  91.     if subinit then
  92.         table.insert(update_table, subinit)
  93.     end
  94.     return update_table
  95. end
  96. local update_table = prog_init()
  97.  
  98.  
  99. -- -----------------------------------------------------------------
  100. -- Update
  101. -- -----------------------------------------------------------------
  102. function prog_update()
  103.     for key, subupdate in pairs(update_table) do
  104.         subupdate()
  105.     end
  106. end
  107.  
  108.